home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / cli / master60.zoo / master / batch / stat.bat < prev    next >
Encoding:
DOS Batch File  |  1989-04-16  |  2.8 KB  |  136 lines
  1. : Statusanzeige
  2.     cd => workdir
  3.     date => datum
  4.     time => zeit
  5.     version => xx
  6.     rem                $xx[5,]
  7.     rem
  8.     rem     Current Time : $zeit         Current Date : $datum
  9.     rem  Lines on Screen : $LINES           Home Directory : $HOME
  10.     history => xx
  11.     rem $xx        Working Directory : $workdir
  12.     alldrives => xx
  13.     rem Fast Disk Access : $FAST               All Drives : $xx
  14.     if SORT = "" {
  15.         Sort name
  16.     }
  17.     show -m => xx
  18.     rem Sorting of Files : $SORT              Free Memory : $xx[6]
  19.     rem   Searching Path : $PATH
  20.  
  21.     set xx DOSTRACE
  22.     if exec "set? -g DOSTRACE" {
  23.         set xx NO$xx
  24.     }
  25.  
  26.     set xx QUIET $xx
  27.     if exec "set? -g QUIET"    {
  28.         set xx NO$xx;
  29.     }
  30.  
  31.     set xx ECHO $xx
  32.     if exec "set? -g ECHO"    {
  33.         set xx NO$xx;
  34.     }
  35.  
  36.     set xx TALK $xx
  37.     if exec "set? -g TALK"    {
  38.         set xx NO$xx;
  39.     }
  40.  
  41.     rem  Command Tracing : $xx
  42.     rem
  43.     if exec "set? -g WRAP"    {
  44.         rem     No wrapping of long lines !;
  45.     }
  46.     if exec "set? -g MAGIC"    {
  47.         rem     No regular expressions allowed with MORE !;
  48.     }
  49.     if not exec "set? -g NOREC" {
  50.         rem     No recursive mapping of environment vars !;
  51.     }
  52.     if exec "set? -g HOLD"    {
  53.         rem     No screen hold after $LINES lines !;
  54.     }
  55.  
  56.     ifglobal UNIX    {
  57.         rem     Unix-mode $UNIX :
  58.         switch UNIX
  59.             case = "0" {
  60.                 rem         - no Unix-mode !
  61.             }
  62.             case = "" {
  63.                 rem         - Unix-environment !
  64.                 endcase
  65.             }
  66.             case > "1" {
  67.                 rem         - Unix-environment !
  68.             }
  69.             case in "26" {
  70.                 rem         - only '/' as directory delimiter, '*' for all files !
  71.             }
  72.             case in "46" {
  73.                 rem         - no '/'-conversion in xArgs !
  74.             }
  75.         endswitch
  76.     }
  77.  
  78.     ifglobal VIRGIN    {
  79.         rem     Virgin-mode $VIRGIN :
  80.         set tmp  $VIRGIN ;
  81.         switch tmp
  82.             case in " 4 5 6 7 12 13 14 15 20 21 22 23 28 29 30 31 " {
  83.                 rem         - keyboard redefining allowed !
  84.             }
  85.             case in " 1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 " {
  86.                 rem         - no GEMDOS/BIOS-extensions !
  87.                 endcase
  88.             }
  89.             case in " 2 3 6 7 10 11 14 15 18 19 22 23 26 27 30 31 " {
  90.                 rem         - no drive-locking possible !
  91.             }
  92.             case in " 8 9 10 11 12 13 14 15 24 25 26 27 28 29 30 31 " {
  93.                 rem         - no unix-wildcards in programs !
  94.             }
  95.             case in " 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 " {
  96.                 rem         - no Master-I/O-redirection !
  97.             }
  98.         endswitch
  99.     }
  100.  
  101.     ifglobal XARGS {
  102.         rem     Xargs-mode $XARGS :
  103.         switch XARGS
  104.             case = "" {
  105.                 rem         - PBP/ARGV-passing !
  106.                 endcase
  107.             }
  108.             case in "123567" {
  109.                 rem         - ARGV passing !
  110.             }
  111.             case = "2" {
  112.                 rem         - i/o-vector passing !
  113.             }
  114.             case in "2367" {
  115.                 rem         - handle 2 is console !
  116.             }
  117.             case > "4" {
  118.                 rem         - xArg-struct passing !
  119.             }
  120.             case in "1357" {
  121.                 rem         - basepage decimal in PBP !
  122.             } else {
  123.                 rem         - basepage hexadecimal in $ !
  124.             }
  125.         endswitch
  126.     }
  127.  
  128.     cdr -g0 PRINTER =>xx
  129.     if xx = 'AUX'    {
  130.         rem     Printer output redirected to serial port !;
  131.     }
  132.  
  133.     ifglobal SIGN_ON    {
  134.         rem     Sign on after changing directory !;
  135.     }
  136.